5 DV=PEEK(186):IFDV<8THENDV=8
10 PRINT"[155][147]":POKE53280,0:POKE53281,0
20 GOSUB60000
50 SYS57812"SOL.FONT",DV,0:POKE780,0:POKE781,0:POKE782,200:SYS65493
60 PRINT"[144][147]":POKE56576,4:POKE53272,2:POKE648,192:POKE53265,27
70 PRINT"[147]LOAD"CHR$(34)"SUPREME"CHR$(34)","DV:PRINT"RUN"
80 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
10000 OPEN15,8,15,"S0:SUPREME BOOT":CLOSE15:SAVE"SUPREME BOOT",8:END
60000 B9$="                                      "
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="[211][207][204][201][212][193][201][210][197][211] [211][213][208][210][197][205][197]
60040 B9$(1)[178]"BY PEEKRIAN PEEKOESE"
60050 B9$(2)[178]"(null)1.0 (LEN) 1991 BY (null)OFTDISK, RIGHT$NC."
60060 B9$(3)[178]"(null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #87"
60070 B9$(4)[178]"(null)UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)[178]"ATNLL (null)IGHTS (null)ESERVED"
60090 [151]214,16:[153]:[129]I[178]0[164]5:[153][163]20[171]([195](B9$(I))[173]2))""B9$(I):[130]
60099 [142]